home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / CRESC / Harmony / symbol-chordize-scroll < prev    next >
Lisp/Scheme  |  1996-12-31  |  1KB  |  19 lines
  1. symbol-chordize-scroll w x y symbol-pattern
  2.  
  3. This function lets a symbol-pattern create its own chordal material. The added or ornamented symbols are derived from the symbol-pattern itself.
  4.  
  5. (setq mel '(a b b d e f f = h l d d))
  6. (setq mela (symbol-chordize-scroll -1 nil nil mel))
  7. --> (ab b bd de ef f f h hl ld d da)
  8.  
  9. (setq melb (symbol-chordize-scroll 1 5 50 mel))
  10. --> (a bf bf d eg fh fh = h li dk dg)
  11.  
  12. In the processing of the symbol-pattern a copy is made in which the position of the symbol list can be scrolled backwards or forwards in relation to the master symbol-pattern. The number of scroll positions backwards or forwards is controlled by the value - w - otherwise its scroll factor is subject to a random operation producing a + or - value less or within one value of the length of the copy.
  13.  
  14. In addition, any repeating symbols are deleted from the copy. This produces a clearer, more subtly ornamented texture.
  15.  
  16. The transpose value - x - is optional; it is diatonic in tonalities other than chromatic. 
  17.  
  18. The optional compression value - y - is intended for symbol patterns where the symbol range may be too extensive for a particular ornamentation. It also serves as a way of reducing the number of different symbols available in the copy to mix into the resultant pattern. See symbol-compress for further info on this process.
  19.